object Form1: TForm1
  Left = 196
  Top = 100
  BorderStyle = bsSingle
  Caption = 'TPassword Example'
  ClientHeight = 200
  ClientWidth = 466
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object DBGrid1: TDBGrid
    Left = 8
    Top = 24
    Width = 320
    Height = 152
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'System'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 336
    Top = 24
    Width = 121
    Height = 33
    Caption = 'Set Password'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 336
    Top = 64
    Width = 121
    Height = 33
    Caption = 'Clear Password'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 336
    Top = 104
    Width = 121
    Height = 33
    Caption = 'Open Table'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 336
    Top = 144
    Width = 121
    Height = 33
    Caption = 'Close Table'
    TabOrder = 4
    OnClick = Button4Click
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 8
    Top = 168
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'EMPLOYEE.DB'
    Left = 40
    Top = 168
  end
  object Password1: TPassword
    Copyright = 'Total Data Concept AS 1995'
    TableName = Table1
    AfterSetPassword = Password1AfterSetPassword
    AfterClearPassword = Password1AfterClearPassword
    Left = 88
    Top = 168
  end
  object PasswordBox1: TPasswordBox
    Copyright = 'Total Data Concept AS 1996'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    OKButton = '&OK'
    CancelButton = '&Cancel'
    Caption = 'Password'
    Prompt = 'Enter password'
    NumTries = 3
    OnNotPassed = PasswordBox1NotPassed
    Left = 120
    Top = 168
  end
end